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Problem 

In order to accxwodate the Disability Withholding requiranents for 
California, New Jersey and Hawaii, the following changes are required. 

There are quite a number of changes required. Hoever the majority of them 
are minor. 


Solution 

After the nodification, the setup in "Other Rates and Limits" will cerate 
as follows; 

1. If the basis is units worked, enter dollar amount per unit under RATE 
(as always) then leave the limit zero. For the new line (11-suEplemental 
Benefits Basis) enter a "U" for Unit basis. 

2. If the Basis is a percentage of tcixable wages, enter the percentage 
(eg 0.6) under RATE and then any ^plicable maximum under LIMIT. In line 
11, enter a "G" for the basis (% of gross). 

Do the following in order to incorporate the changes. 

1. Backup the diskette(s) and make the changes on the Backup) copy of the 
program 

2. In BASIC load the program by typing IDAD"CHNGCD". 

3. Make the following changes: 
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CHANGES (Retype the line or refer to the edit section of the owners manual) 

Old Line: 1620 C3:iEAR2000;QC>SUB400:CIS;PRINTCF$:PRINT@(2,16) ,R$" OTHER 
RATES AND L I M I T S "N$:DIMFT#(9) ,FT(11) :F9$="###,###.##-": 
F8$="####" :F7$=I£Fr$ (F9$ ,10)+"#-" 

New Line: 1620 CLEAR2000:QOSUB400:CLS:ERINrCF$:PRINT@(2,16),R$" OTHER 
RATES AND L I M I T S "N$:DIMFT#(^) ,FT(11) :F9$=''###,###. ##-": 
F8$="####" :F7$=I£FT$ (F9$ ,10 )+"#-" 

Old Line: 1640 DATA"FICA W/H", "01020000", "SUPP BENEFITS", "08000000", 

"CD FICA", "03000102", "00 W/OOMP", "09000708", "EUI", "04050304", "SUI", 
"06070506","EIC","00000900","NET PAY","00000011":RES'roRE:FDRI=lT05: 
READC6${I):NEXT: BDRI=1T08:READC6$(I),07$(I):NEXT 
New Line: 1640 DATA"FICA W/H","01020000","SUPP BENEFITS","08100000", 

"OO FICA","03000102","CD W/ODMP","09000708","FUI","04050304","SUI", 
"06070506","EIC","00000900","NET PAY","00000011":REST0RE:BDRI=1T05: 
READC6$(I):NEXT:P0RI=1T08:READC6$(I),C7$(I):NEXT 

Old Line: 1700 PRINT®(16,0),R$;" 9 "N$;TAB(10);"W0RK UNIT ";TAB(25); 

MID$(C3$,73,4):PRINr@(17,0),R$" 10 "N$;TAB(10);"CITY W/H BASIS"; 

TAB( 25) ;MID$ (C3$,77,1) 

New Line: 1700 PRINT® (15,0) ,R$;" 9 "N$ ;TAB(10); "VDRK UNIT " ;TAB(25); 

MID$(C3$,73,4):PRINT®(17,0),R$" 10 "N$;TAB(10) ;"CITY W/H BASIS"; 

TAB(25) ;MID$ (C3$, 77,1) 

Old Line: 1720 PRINT®(19,8),"> ENTER NUMBER OF ITEM TO BE CHANGED ";:FL=2: 
GOSUB100: IFLEN (IN$) <1'IHEN1720ELSEIFASC (IN$ )=1'IHENLSETF2$=C3$: PUT2,3: 
dOSE:GOTO1000ELSEI=VAL(IN$): IFI<lORI>10THENl720ELSEPRINr® (19,0) ,ES$ 

New Line: 1720 PRINT®(19,8),"> ENTER NUMBER OF ITEM TO BE CHANGED ";:ET>=2: 
QOSUB100: IBT£N (IN$) <1'IHEN1720ELSEIFASC (IN$ )=1'IHENLSETF2$=C3$: PUT2,3: 
CIDSE:QOTO1000ELSEI=VAL(IN$) :IFI<1CIRI>11 'IHENl720EISEPRINr® (19,0) ,ES$ 

Old Line: 1730 IFI=9'IHENPRINr® (19,0) ,EL$:IRINT®( 19,8), "> ENTER WC«K UNIT 
BASIS ";: FL=4:GOSUB100: IFCF=lCfflCF=2'IHENl710EESEIFLEN(IN$) >0THEN 
MID$ (C3$, 73,4 )=S1RING$ (4," ") :MID$ (C3$, 73 )=IN$ :PRINT® (16,25), 
MID$(C3$,73,4) 

New Line: 1730 IFI=9'IHENPRINr®(19,0),EL$:PRINT®(19,8),"> ENTER WORK UNIT 
BASIS ";: FI>=4: GOSUB100: IFCE^1CRCF=2THEN1710ELSEIFI£N (IN$) >0IHEN 
MID$ (C3$ ,73,4 )=S1RING$ (4," ") :MID$ (C3$,73 )=IN$ :PRINT® (15,25), 
MID$(C3$,73,4) 

Old Line: 1740 IF I=10'IHENPRINr®(19,0),EL$:PRINT®(19,8),"> ENTER CITY W/H 
BASIS: % OF "R$" F "N$" EDERAL W/H OR % OF "R$" G "N$" ROSS ";:FL=1: 
GOaJBl00: IFIN$<>"F"ANDIN$<>"G"'IHENl740EIfiEMID$ (C3$ ,77,1)=IN$: 

PRINT®(17,25),MID$(C3$,77,1) 

New Line: 1740 IF I=10'IHENPRINT®(19,0),EL$:PRINT®(19,8),"> ENTER CITY W/H 
BASIS: % OF "R$" F "N$" EDERAL W/H CR % OF "R$" G "N$" ROSS ";:ET>=1: 
aOSUBl00: IFIN$<>"F"ANDIN$<>"G"'IHEN1740ELSEMID$ (C3$ ,77,1)=IN$: 

PRINT® (]^,25) ,MID$ (C3$, 77,1) 
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Old Line: 1790 NEXT:P0RI=1TO9;MID$ (C3$ ,I*8-7,8)=MKD$ (Pr#(I)) iNEXT: 

Ea^I=nDll; MID$ (C3$, 1*2+76,2 )=MKI$ (FT (I)): NEXT: QOTO1710 
New Line: 1790 NEXT:K)RI=1TD9:MID$(C3$,1*8-7,8)=MKD$(Pr#(I)) :NEXT: 

MI D$ ( C 3$ ,201,8 )=j>lKD$ (FT# (10)) :K)RI=1T011 :MID$ (C3$ ,1*2+76,2 )=MKI$ (FTC I)) 
:NEXT:GDTO1710 

Old Line: 1920 CLEAR2000:ONEE«lORQOID45:QOSUB400:DIMFr#(9) ,Fr(ll) :CLS: 

PRINTCF$:I«INT@(2,13),R$" PRINT COMPANY DEFINITI 

O N S "N$:PRINT:PRINT:DL$=ENDL$ 

New Line: 1920 CLEAR2000:ONERRORQOTD45:QOSUB400:DIMFr#(^),Fr(ll) :CLS: 

I«INTCF$:IRINT@(2,13),R$" PRINT COMPANY DEFINITI 

0 N S "N$:PRINT:PRINT:DL$=EM)L$ 

Old Line: 2270 LPRINTTAB(10) ;"WDRK UNIT ";TAB(25) ;MID$(C3$,73,4): 

IPRINTTABC10); "CITY W/H BASIS" ;TAB(25) ;MID$ (C3$ ,77,1) :LPRINT:RETURN 
New Line: 2270 IPRINrTAB(10) ;"WORK UNIT ";TAB(25) ;MID$(C3$,73,4): 

IPRINnAB(10);"CITY W/H BASIS";TAB(25) ;MID$(C3$,77,1) :LERm ™(^)2 
"SUPP BENEFITS BASIS ";MID$(C3$,200,1) :IPRINT:RETURN 

ADDITIONS (Type the line followed by an <ENrER>) 

1665 FT#(10)=CVD(MID$(C3$,201,8)) 

1705 PRINT@(17,0),R$" 11 "N$TAB(10)"SUPP BENEFITS BASIS:"TAB(31) 

MID$(C3$,200,1) 

1745 IFI=llTHENPRINr@(19,0),EL$:PRINT@(19,8),"> ENTER SUPP BENEFITS BASIS: " 
R$" U "N$" NITS OR % OF "R$" G "N$" ROSS ";:FL=1:QOSUB100:IFIN$<>"U" 
ANDIN$<>"G"THEN1745ELSEMID$ (C3$ ,200,1)=IN$:PRINT@ (17,31) ,IN$ 

2235 Fr#(10)=CVD(MID$(C3$,201,8)) 

4. Type SAVE"GHNQOO" to save the chcinges in the program. 

5. Load the nesct program by typing LOAD"INPUT". 

6. Mate the following changes: 

(3IANGES (Retype the line or refer to the Edit section of the owners manual) 

Old Line: 370 CLEAR4000:QOSUB290:CLS;PRINrCF$:DIME#(22) ,YE#(18) ,R#(9) ,DR#(9), 
H# (9) ,FT# (10) ,Fr( 11) ,T! (20,3) ,T%(18) ,M# (9) ,EC$(18) :PRINT@ (0,21) ,R$ 

" PREPARE PAYCHECKS "N$:FI$="###,###,###.##-": 

UL$=STRING$(79,):HI$="###,###.##-" 

New Line: 370 CLEAR4000:GOSUB290:CIS:PRINTCF$:DIME#(22),YE#(18) ,R#(9),DR#(9), 
H#(9),FT#(10),Fr (11),T!(20,3),T%(18),M#(9),EC$(18):PRINT@(0,21),R$ 

" PREPARE PAYCHECKS "N$:FI$="###,###,###.##-": 

UL$=SrRING$(79,"-"):HI$="###,###.##-" 
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Old Line: 1060^X>i^(^m^$(^K5,93)) :IFTC<lClRTC>7'IHENE#(I)=0#;RETURNEnLSE 
E# (I )=E# (22) *Pr# (8 ) :GOSUB970: RETURN 

New Line: ljaf60IFMID$(C3$,200,l)="U"'IHENIX>ASC(MID$(NM$,93)) :IFTC<lORTC>7 
IHENE# (I )=0# :RETORNEI£EE# (I )=E# ( 22) *FT# ( 8 ): GOSUB970 :RETURN 

AECmONS (Type the line followed by an <EWrEIR>) 

415 PT#(10)=CVD(MID$(C3$,201,8)) 

1063 P$(0)="XXXXXXXXX" 

1065 K=0 : GOSUB980 : E#(I )=Fr#( 8 ) *G#/100# : GOSUB970 : SB#=FIX (FT#( 8 ) *Pr# ( 10 ) )/100# : 
IFE# (I )+YE# (I) <SB#THENREIURNEE£EE# (I )=SB#-YE# (I) :QOSUB970: IFE# (I) >0 
IHEMiETURNEISEE# (I )=0# :RETURN 

7. Type SAVE"INPUT" to save the changes to the program. 

8. At TOSDOS Ready, make a backup cc^y of the corrected diskette. 


♦NOTE: Line 1063 sets up v^iich of the 9 categories for earnings are taxable 
for disability and which are not. "X" means Taxable for disability. "N" 
means Non-Taxable for disability. Therefore, if all 9 were taxable 1063 
would read P$(0)="XXXXXXXXX". If they were all exeiqpt 1063 would read 
P$ (0)="tWNNNNNNN". 







